gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGadminEdit.asp
<!-- #INCLUDE FILE="login.asp" -->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<%
'///*********************************
' 管理员自我更新程序
'********************************///
action=trim(request("action"))
Dim dqw
Select Case action
Case "edit"
dqw="自我更新管理员信息"
Call Heads_GGadmin(dqw)
call adminedit_edit(trim(request("id")))
Case else
dqw="自我更新管理员信息"
Call Heads_GGadmin(dqw)
Call adminedit_main()
end Select
'//************************************************
' 某管理员信息自行更新入库
'************************************************//
Sub adminedit_edit(id)
if Len(trim(request("passwd")))<1 or Len(trim(request("person")))<1 then '' 简易判断是否为空
response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>请输入各项内容后进行自我更新<BR><BR><a href='?'>[返回]</a></td></tr></table>"
else
conn.execute("Update Admin set passwd='"&trim(request("passwd"))&"',person='"&request("person")&"' where aid="&id)
call adminedit_main()
end if
End Sub
'//************************************************
' 某管理员信息自行更新
'************************************************//
Sub adminedit_main()
if trim(request("id"))<>"" then
id = trim(request("id"))
else
id = Session("ZonGGadminid")
end if
if isnumeric(id) then
Rs.open "select * from Admin where aid="&cint(id),conn,1,1
Dim qxbs,pids
qxbs=PubFgdy(rs(3),"#",0)
pids=PubFgdy(rs(3),"#",1)
%><div align="center">
<table width="680" id="table1" border=1 cellpadding=2 bordercolor=#C0C0C0 bgcolor=#ffffff style="border-collapse: collapse">
<tr>
<td class="td1" height="30" align="center" width="130">管理帐号</td>
<td class="td1" height="30"><%=rs(1)%></td>
<td class="td1" height="30" align="center" width="300">您的权限(不会在此被更改)</td>
</tr>
<form method="POST" action="?action=edit&id=<%=rs(0)%>">
<tr>
<td align="center" width="130">
登陆密码</td>
<td>
<input type="text" name="passwd" size="13" value="<%=rs(2)%>" maxlength="20">
20字符以内</td>
<td rowspan="2" valign="top"><%if PubFgdy(qxbs,",",0)="1" then response.write " <font face='宋体' color='#FF0000'>√</font> 管理员设置 "%>
<%if PubFgdy(qxbs,",",1)="1" then response.write " <font face='宋体' color='#FF0000'>√</font> 广告图管理 "%>
<br>
<%if PubFgdy(qxbs,",",2)="1" then response.write " <font face='宋体' color='#FF0000'>√</font> 分类/广告位总管 含添加删除分类"%>
<%if PubFgdy(qxbs,",",2)="2" then
%><br>
<%
Response.write "<select name=place size=8 multiple>"
Response.write "<option>--------- 对下列分类拥有更新、清理权限 ---------</option>"
Set RsLs=Server.CreateObject("ADODB.Recordset") '开始广告分类循环
RsLs.Open "select cid,cname from class ",conn,1,1
do while not RsLs.eof
if instr(","&pids&",",","&RsLs(0)&",")>0 then response.write "<option value='"&RsLs(0)&"'>"&RsLs(1)&"</option>"
RsLs.movenext
loop
RsLs.Close
Set RsLs=Nothing
Response.write "</select>"
end if
%>
</td>
</tr>
<tr>
<td align="center" width="130">
个人资料</td>
<td>
<textarea rows="9" name="person" cols="33"><%=rs(4)%></textarea></td>
</tr>
<tr>
<td align="center" colspan="3" height="40">
<p>
<input type="submit" value="执行自我更新" name="B1"> </td>
</tr></form>
<%
Rs.close
%>
<tr>
<td align="center" colspan="3" height="30" class="td1"><font class=red>注：</font>请输入登陆密码和个人资料执行自我更新,各项内容不可为空</td>
</tr>
<tr>
<td align="center" colspan="3" height="30"> </td>
</tr>
</table>
</div>
<%
end if
End Sub
%>